home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Ultimate Frank Lloyd…ght - America's Architect
/
Ultimate Frank Lloyd Wright, The - America's Architect (1994)(Microsoft Home).iso
/
pre
/
flw
/
flwrh14a.dir
/
00171_Script_171
< prev
next >
Wrap
Text File
|
1994-11-15
|
2KB
|
82 lines
on startMovie
cursor 4
global nowFrame, currMM
set currMM = "FLWWT"
preLoadCast 1,8
puppetSprite 11, TRUE
repeat with i = 21 to 23
puppetSprite i, TRUE
set the immediate of sprite i to TRUE
end repeat
set the stretch of sprite 23 to FALSE
end startMovie
on stepMovie
global nowFrame,currFrame
if nowFrame <> currFrame then
seeAlsoList
set currFrame = nowFrame
end if
end stepMovie
on saveLocals
global lastMovie, lastFrame, nowFrame
set lastFrame = nowFrame
set lastMovie = "FLWRH14A"
end saveLocals
on buttonState
global FrankNav, bFlag
if rollover(11) then
set the castNum of sprite 11 to 1082
if the mouseDown then
set the castNum of sprite 11 to 1083
end if
else
set the castNum of sprite 11 to 1081
end if
if rollover(6) then
rollCheck
else
set pos = 0
cursor -1
end if
if (the mouseV > 400) or (bFlag = TRUE) then
doState
end if
end buttonState
on rollCheck
global right, left, forw, pos
if the mouseH>=446 and the mouseH<=537 and the mouseV>180 and the mouseV<420 then
if right = 1 then
set pos = 3
cursor [1065,1066]
else
set pos = 0
cursor [1071,1072]
end if
else if the mouseH>=217 and the mouseH<=308 and the mouseV>180 and the mouseV<420 then
if left = 1 then
set pos = 1
cursor [1069,1070]
else
set pos = 0
cursor [1071,1072]
end if
else if the mouseH>=307 and the mouseH<=447 and the mouseV>180 and the mousev<=420 then
if forw = 1 then
set pos = 2
cursor [1067,1068]
else
set pos = 0
cursor [1071,1072]
end if
end if
end rollCheck